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2 -SBTTL DECLARATIONS 
? ; MACRO LIBRARY CALLS 
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of ZERO ONG 9 ; address 0 for ACCVIO err 
88 BYTE DSCSK_DTYPE_T 
0 “BYTE gine seem 
71 LONG 
ie D_LOGIC AME: 
7 -WORD 5 
fe BYTE DSCSK_DTYPE_T 
“BYTE DSC$K CLASS_S 
6 ADDRESS LOGIC_NAME 
7 D_EQUIV_NAME : 
78 «WORD 5 
79 «BY DSCSK_DTYPE_T 
0 -BY DSCSK_CLASS_S 
1 -ADDRESS EQUIV_NAME 
¢ D_MBX_LOGIC_NAME: 
WO 9 ; for prefixing "MBXx$' 
4 «BYTE DSCSK_DTYPE_T 
5 -BYTE DSCSK-CLASS’S 
6 «ADDRESS MBX_COGIC_RNAME 
7 MBA: 
8 -ASCID \MBA\ 
89 MSG1 
90 -ASCID /Created mailbox was not permanent./ 
191 MSGVEC: 
135 «LONG 3 ; PUTMSG message vector 
19 ‘beer VETPS. TEXT 
194 - LON 
195 ADDRESS MESSAGEL 
196 PROT: ’ 
13 on -ASCID /PROMSK/ ; protection mask for S$CREMBX 
199 -ASCID /SUPER/ 
+ TEST _DATA: iF 
‘ AREPT BUF _SIZ_G/2 
,Wonp A 
4 A=A+ 
5 -ENDR 
$ TEST_MOD_BEGIN: ; start end and fail messages 
0 ASCIC /begun/ 
Ls 


$08 a “AScre /failed/ 


$19 FEST ROD _0Ae 
ASCIC /SATSSSO7/ ; needed for SATSMS message 


$i§ TEST_MOD_NAME_D: 
TASCID /SATSSSO7/ ; module name 
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37 30 4 9 
B si TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 P" 4 ; 15 TASCIC /successful/ 
796 31g UM: 3; mode messages 
72 65 73 75 0000079E'010E0000' 0796 1 -ASCID \user\ 
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7A 19 ; 
7A 0 -SBTTL R/W PSECT 
0000 -PSECT RWDATA,RD,WRT,NOEXE ,LONG 
Z : PRARAAASALAAAAAAAALALLALALESALE SESE ESE LEE E ESE S EEE a 
3 et af 
5 ; ne The following 2 declaratives must be CONTIGUOUS !! es 
§ . LARRRAAAASALAZALASALAASESESALESE ESE SESE SESE EEC CECE RSE SE SaaS 
0 : MBX_LOGIC_NAME: 
24 58 42 4D 0 ASCII = /MBX$/ 3; for SCREMBX call 
$ 9 LOGIC_NAME: ; for SCRELOG sys service 
42 45 4D 41 4E 3 EOUIY whe /NAMEB/ 
41 45 4D 41 4E $09 g ~ ASCII = /NAMEA/ 
OO0E 4 CREATED_FLAG: ; signalling successful mailbox creation 
00 4: 5 BYTE : for delete service 
OOF $ ARGLST1: 3; argument List for BUF _CHECK 
00000305" QOOOF 8 -ADDRESS MBA 
0000002 4 i oe -—BLKL 4 
00000073 03 men -BLKB 80 
00001FB3 07 “8 me cont ett 8000 
00000000 1F83 f ey .LONG 0 ; change mode continue address 
1FB7 23 : SCREMBX 0,MBCHANG,0,0,0,0,0 ; CREMBX paramter List 
1FD7 48 CTRSTR: 
00000084 1FD7 49 -LONG 132 3 same as above 
OOOOIFDF* 1FDB 50 ADDRESS ,+4 
00002063 EDF 31 cama 0 KB. 132 
00000000 O63 x “,LONG 0 ; ptr to current test case 
Be 30 nes -ALIGN LONG ; put it on a long word boundry 
8 36 jn SDELMBX MBCHANG ; DELMBX parameter List 
00000084 207 38 " .LONG 132 : Same as above 
Bebo Sore. 074 5 ADDRESS .+4 
000020F ¢ 078 60 eahiha -BLKB. 132 
0000 FC $¢ WORD 0 , ; channel for the SGETCHN 
FE 65 MBCHANG ; .G mailbox channel 
0000 F 64 «WORD 0 
10 65 MBCHANS: ; .S mailbox channel 
0000 8 96 WORD 0 
1 67 MBCHAND: ; .D mailbox channel for deletions 
0000 } $8 nanie -wORD 0 
0000074 2104 29 "LONG DIBSK_LENGTH ; length of PROMSK for SGETCHN 
000210C* ! . g CHR -ADDRESS .+4 
00002180 rs ts sd .BLKB  DIBSK_LENGTH ; buffer for PROMSK in $GETCHN 
00002580 21 75 ~ .BLKB  BUF_SIZ_G ; buffer for Q10 reads 
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8 MESSAGEL: 

? -LONG 0 

? ADDRESS BU 
SS GE 


. F 
- ADDRE TBUF +8 


= 
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.LONG 0 
ADDRESS GETBUF +8 
MOD_MSG_CODE : 

.LONG UETPS_SATSMS 


ADDRESS TEST_MOD_BEGIN 
TMN_ADDR: 
ADDRESS TEST_MOD_NAME 


-LONG 0 


-LONG TEXT BUFFER 
-ADDRESS BUFT 


“~ 
wv 
~ 
o 


MSGIL: 
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.BLKB —- TEXT_BUFFER 


MESSAGE1L: 
-LONG 0 


? 

0 

: 

4 

5 MODE 

§ «LONG 0 

MSGL: 

8 -LONG 80 

9 ADDRESS BUF 

Q MSGVEC1: 
91 -LON 3 
36 “LONG UETP$_TEXT 
9 «LONG 1 
94 -LONG 0 
95 PB 
38 -LONG DIBSK_LENGTH 
9 ADDRESS .+4 
98 -BLKB DIBSK_LENGTH 
99 PRIVMASK: 
00 -QUAD 0 
01 PRVHND1: 
if -LONG 0 

PRVPRT: 

4 -BYTE 0O 

5 REG: 
06 -ASCID \register R\ 
07 REG_SAVE_AREA: 
08 ~BLKL 15 
09 REGNUM: 
10 -LONG 0 
11 RETADR: 
1 . 2 

13 SERV_NAME : 

14 «LONG 0 

15 STATUS: 

1 -LONG 0 

17 TMD_ADDR: 

13 

$$ 
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desc. for BUF_CHECK routine 


test module message code for putmsg 
current mode string pointer 

buffer desc. 

PUTMSG message vector 


priv. mask 
previous handler address 1 
protection return byte for SETPRT 


register save area 

register number 

returned address's from SETPRT 
service name pointer 


PID for this process 
Buffer #1 desc. 


Message length 
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SATSSSO7 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:47: AX/VMS Macro V04- Pa SA 
v04 R/W PSECT dT ers 0:59:98 LUETPSY. SREISA Oe589.maR:1 na d) vd 
00002683" 2787 -ADDRESS BUF! 
0 ' fee variheamtid:! Text surren.0 ; eke PAClI® but tor for wise. strings 
. ‘ ; A word for Length, a word for desc. 
Booov0ss: S7Br 338 “ADDRESS BUFFER . 
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SATS$S07 = SAT STEM SERVICE TESTS suce $.C.) 16-SEP-1984 00:47: AX/VMS Macro V04- Pa 1 SA 
V04= R/W P B28Ep=19 4 2:39:56 UETPSY  SREISATSSSO7.MAR; 1 ()) ve 


»PSECT SATSS907 -RO WRT EXE LONG 
«SBTTL SATSSSO7 


+ 
FUNCTIONAL DESCRIPTION: 

After performing some initial housekeeping, such as 
er sneine the module begin message and acquirin needed privileges, 
the ore em services are tested in each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN SATSSSO7 ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSSO7. 
They are of the form: 


now 
m 


RUETP=S=SATSMS, TEST MODULE SATSSSO7 BEGUN ... (BEGIN MSG) 
RUETP=S-SATSMS, TEST MODULE SATSSSO7 SUCCESSFUL ... (END MSG) 
RUETP-E-SATSMS, TEST MODULE SATSSSO7 FAILED ... (END MSG) 
RUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSSO7 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 
none 


Sete Se Ge Se Se Ge Se Se Se Ge Se Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Se Se 
+ 


PALA 9 OONA UNSW = OOD NAUN EW SO OD NAME WIN OOO NOAUS Wu OOon 


COO9 C9 C9 G9 ODO I NNN IDS DDD DDD DD TTI EI 


SOOOCOCOCOSOSOOOCOCOCOOCOOSS OOS OSOSOOSOOOCOCOOOCOOOCOOOOOOOOOOOOOOOOOO -~< 


SOOooooooooooooo 
So 


TEST_START SATSSSO7 ; let the test begin 
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50a 5880 SA e530? Peet y 80:5 5:96 Yet Pe Y.S RTS Yessoo mans 1 ve WD 
0000 .ENTRY SATSSS07,0 
2063'CF D4 CLRL = W°CURRENT_TC 
DD PUSHL #0 
DF PUSHAL W*TPID 
0000000"6F "8 FB g CALLS 43 .G°SYSSUAKE 
a FB CALLS #0,G*SYSSHIBER 
78°C F 1A PUSHAQ W*fEST MOD NAME _D 
00000000'GF 01 re 1 CALLS #1,G*SYS SETPRN 
15¢8 BSBW W*MOD_MSG_P 
269F "CF gece 6D MOVAL W‘*TEST gf pSUEE, ,W°TMD_ADDR 
2596'CF 03 ne F INSV #SUCCESS, W*mMOd_FSG_CODE 
0 dD 6 PUSHL 
OE16'CF O01 FB CALLS #1,W*REG_SAVE 
03D STPO: 
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SATSSSO7 - SATS SYSTEM SERVICE TESTS (suce $.C.) 16-SEP-19 0:47: AX/VMS Macro V04- P 1 SA 
Sou e800 CREMBX TESTS mit} y 0:38 :29: ‘06 UE Te SY. RETSAYSSSOT.MAR: 1 met 1%) vc 
4 B : -SBTTL CREMBX TESTS 
D : 
4 $e ; SCREMBX tests 
D 393 : Test tempora ilbox. 
$4 mporary mailbox 
697°CF  O008'CF DE D 396° MOVAL —U*CREMBX,WU*SERV_ NAME ; set service name 
oooh ce B00e' cr D 44 39 " : 
. 048 38 SCREMBX. § _s “UR UNBOOE or ee 
bee 9 CHAN =W°MBCHANS,- 3; try —s form 
48 00 MAXMSG=#MBBUF , - 3 set the max. message size 
048 401 BUF QUO=#BUF _S{7_S,- > set the buffer quota 
0048 4 ¢ LOGHAREM  LOGNAAS 3 try _s 
a OC 40 FAIL ~CHECK” ae ge :; check success 
OE20'CF 01 FB 89 che Us #1 wREG. Check 
"CE D4 OFS 404 CLL UACRE*CREMBXS PRAFL Lg ; make it temporary 
1FC3"CF 00000400 8F DO 007 405 MOVL eneeut UCRE SCRERBKS XMSG 3; set the max. message size 
1FC7°CF_ 00000400 BF D0 +t) $86 MOVL #BUF_SIZ_G,W*CR RE SPREMane BUFQUO ; set the buffer usta 
1FD3°CF 54°CF DE 0089 40 MOVAL W"LOGNARG. GN CRESCREMBKS COGNAM ; set the Lognam 
090 408 SCREMBX_G W*CR i try 9 form 
0099 409 FAIL TCMECE soe NORM 3; check success 
01 DD 0099 oeese NORMA 
OE20'CF 01 FB 0098 CALS #1,W™REG_ CHECK 
OCFC'CF 00 FB OOA 410 CALLS #0,W*VERIFY_MBX ; read,write,verify,delete MBX 
OC3D'CF 00 FB OQOA 411 CALLS #0,W*ERLBUF_DUMP ; dump errors 
OOAA ais i 
Soa 414 : Test permanent mailbox 
OOAA ae | 
QOAA 417° NEXT_TEST 
QOAA STP1: 
2063'CF 4 3 ey te At »W*CURRENT_TC 
0E16'CF 01 FB 081 CALLS gh Ay SAVE 
2697'CF OOO8'CF DE 00B6 418 MOVAL UACRENBY i SERV_RNAME : set service name 
2598'CF O796'CF DE 08D 419 MOVAL ¥ “Par eet > set mode 
bore 432 CHAN. -=WSABCHANS 
Oc4 4 : BUT dCG=#BUF Ue Ez “f° 
C4 424 LOGHARSY LOGNAR ; try _s form 
ne oes 425 FAIL =fhece S? SS$_NORMA ; check success 
OE20'°CF 01 FB E CALL HS pee ec CHECK 
E 4 $ SDASSGN_S CHAN=W* MBCHANS~ ; deassign mailbox 
FB 4 SASSIGN7S DEVNAM=W*LOGNAMS1,- 
F 4 8 CHAN =W“MBCHANS ; try se reassign MBX 
. 2 wa 4 CMPL RO, #SS$_NORMAL : is the MBX permanent? 
08 13 010c 340430 BEQ tL 10 > br it yes 
11 } 2 1 108 20$ 3; print perm, MBX error 
1FBB'CF 01 DO O11 4 5 MOVL #1,W*CRE+CREMBXS$_PRMFLG ; set prmflg for perm. MBX 


2697°CF 0120" 
OE 16'CF 


OE20'CF 


206C'CF 20FE" 


OE20°CF 


2063'CF 


g097-th'” Shoe. 


F 
0 
1 


oon 


oO 
— 


01 
CF 


01 
01 


i 


> 
“~ 
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MOVL rin sad cy eres eRe 


4 
4 
$ 

Ue ae E 

oe yee ween E 


9: 
MBX$_MAXMS 
RE+CREMBX$_B 
+CREMBXS$_L 


s§ 
HL ~ “iss 
LS. w*nee ¢ CHECK 
HAN= CHANG” 
EVNARSYLOGNANGT. - 
=W“MBCHANG 

aS35. NORMAL 

PUSHAL 
CALLS 


CALLS 
CALLS 


MSG1 
oW*PRINT_FAIL 


ce co 


“VERIFY_MBX 
WERLBUF DUMP 


: SDELMBX test 


SASSIGN_S DEVNAM=W*LOGNAMS1,- 
AN =W*MBCHANS 
notte oF OSLER 0" SERY OE 


#1,W*REG_SAVE 
$DELMBX_S CHAN=W™MBCHANS 
FAIL. CHECK SS$_NORMAL 
PUSHL #sSS_N NORMAL 
CALLS #1 WREG CHECK 
SASSIGN_S DEVNAN=¥ WLOGNAAGT . 
MOVZWL W“MBCHANG. W*DEL+DELMBX$_CHAN 
SDELMBX_G W* 
FAIL =CHECK $58. NORM 


OSSScN NORMAL 
CALLS #1,W*"REG_CHECK 


: Test MAXMSG Low Limit (1) 


NEXT_TEST 


STP2: 
mat eee oW*CURRENT_TC 


PUSH 
CAL ts #1,W°REG SAVE 
MOVAL uaitenay WeSEN NAME 


SCRENBX 5 PRAFLG= =#0, 


P=1986 00:29:56 . 


G 
UFQUO : 
OGNAM ; 


AX/VMS Macro V04- 369 
UETPSY.SRCJSATSSSO7.MAR; 1 


SA 
vo 


Gy 

a 
~~ 
ad 


set the pea. gn size 
set the buffer quota_G 
set the lognam 

; try form 

; check success 


deassign the channel 
assign the mailbox 

is the MBX permanent? 
br it: yes 

print failure 


read,write,verify,delete MBX 
dump errors 


reassign the mailbox_S 
set service name 


save the registers 
delete the _S mailbox 


reassign the mailbox_S 
delete the _G mailbox 


service name 
mode 


set 
set 


the max. message size 
the buffer size 
_S form 


set 
set 
try 
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SY 
MBX TE SEP-1984 UETPSY.SRCISATSSS ) va 
4 680 FAIL. or sss. monn 3 check success 
ot DD 4 aSS$.N NORMAL 
OE20'CF 1 FB 6 is ChELS #1 ,W*REG_CHECK 
D4 B 4 CLRL W*CRE+CREMBX$_PRMFL 3; make it temporar 
43 a oi pe F 4 4 MOVL #LOMSG Wr gRe scRENaR MSG 3 set the mene message size 
vec?’ CF "5 0 6400, F OD 14 484 MOVL #BUF_S{2_G RES CREMBXS BUFQUO ; set the buffer quota 
FD3'CF 4'CF DE 021D 485 MOVAL ULOGNARG, GNCRESCREMBKS. COGNAM : move Lognam in 
4 4&4 § SCREMBX_G W*CR 3; try .9 form 
D 4 FAIL “CHECK SS$_NORM, : check success 
ot DD D PUSHL asset NORMAL 
OE20'CF 1 £B F CA rts #1 ,W*REG_CHECK 
4 488 $Q10_S CHAN=w*Mici ANS 
4 489 UNC=A#10$ WRI TEVBLK, ~ 
4 te yonsen ite to the neflbox.s 
; write to e ma Ox 
0100 8F 00 ahha POR 2c 0 3? 492 MOVCS Suen wnbX BUF ,#0,4256,W*°MBX_BUF ; zero the MBX buffer ~ 
6 SF 493 $Q10_S CHAN=U"HBCHANS . - 
O25F 494 UNC=#10$ READVBLK, - 
O25F 495 BY W*MBR_BUF,- 
SF $36 P2 aa omsG : read from the mailbox 
56 2180; CE DE ze 49 MOVAL W*MBX BUF R6 > set the MBX buffer 
57 O365'CF DE 0283 498 MOVAL weTesT DATA,R7 : find the master data 
58 601 «20 0288 «= 499 MOVL #LOMSG7R 
20FC'CF 2100°CF BO 0288 500 MOV WSRBCHANS W*MBCHAN ; get the channel number 
Oc7aA'CF 00 FB O 32 501 CALLS #0 W°BUF CHECK : check the data 
029 308 $DASSGN_S CHAN=WPHBCHANS : deassign the channel 
O2A 30 $Q10_S ~CHAN=W“MBCHANG 
02A 04 PUNC=#10$ URI TEVBLK,~ 
02a3 «5505 Pi 1 Test A,- 
02A 506 oh .ue OMSG ; write to the mailbox_G 
0400 8F 00 shal POT 2c So 507 mMovcS # wombs BUF ,#0,41024,W*MBX_BUF ; zero the MBX buffer ~ 
O2cE 508 $Q10_S CHANSWMBCHANG »- 
O2cE 509 FUNC=#10$ READVBLK, = 
O2cE 510 w*MBR_BUF,- 
CE a1} P2 =a omsG : read from the mailbox 
56 2180; CF DE O2ED 1 MOVAL W*MBX BUF ,R6 t set the MBX buffer 
57 O365'CF oD Fe 1 MOVAL W*TEST_DATA,R7 : find the master data 
58 01 iD F 14 MOVL  #LOMSG7R 
20FC'CR 20FE'CF BO OOFA 515 MOVW WoMBCHANG W*MBCHAN : get the channel number 
OC7A'CF 00 FB 1 18 CALLS #0,W°BUF CHECK : check the data 
1 SDASSGN_S CHANCUTNBE NANG : deassign the channel 
1 19 ; Test BUFQUO using hae = = $38 using _S form 
} 9 3 using -G form 
1 § i- 
NEXT_TEST 
1 STP3: 
2063'CF 03 00 031 MOVL #3,W*CURRENT_TC 
0 pd 031 PUSHL 4 
E16" 1 FB 0319 CALLS #1 ,WeREG SAVE 
697'CF 098°CF DE 3 338 MOVAL US CKENeX SERV_RAME 3 set service name 
O98 Cr 796'CF DE 032 5 MOVAL w*MODE : set mode 


N11 
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V04- CREMBX STS g-3é pa 198e 80:5 5:98 UETPSY. Baer e yee 09 MAR; 1 . (1) vc 
§ SCREMBX_S ter Aaa 7 
CHA 2W WeABCHANS - 
8 XRSG= #*BBUF 
BU aug=#QUF “sii 35°" 
0 LOGNA oon 3; try _s 
1 FAIL =CHECK $$8 NO 3 check success 
gt DD PUSHL “ESS8,NO 
OE20'CF 1 £8 ALLS wnce C CHECK 
TFBB'CF D4 2 CLRL U"CRESCREMBKS PR PRAF g 
1FC3'CF 00000400 8F be MOVL #MBBUF ,W“CR +TREMBX$_MAXMSG ; set the max. message size 
1FC7°CF oat £394 4 MOVL UF _S$'7 Se2,W*CRE+CREMBX$ BUFQUO ; set the buffer quota 
1FD3'CF O154'CF DE 5 MOVAL — W*LOGNAR, W*CRE+CREMBXS_LOGNAM 
§ SCREMBX_G W*CR 3; try .G form 
FAIL. CHECK” SS$_NORMA’ 3; check success 
01 DD PUSHL #SS$_NORMA 
OE20'CF O01 FB CA rts #1 ,W*REG_ CHECK 
$Q10_S Chaney CH S 


caer at aca 
- ; write to the mailbox_S 


0100 8F O00 2180'CF 00 2c MOVCS *0,ueR WenBX "BUF #O,#256,W°MBX_BUF ; zero the mailbox buffer 


2180'CF 
$Q10_S ae ge BS ee Oe 
UNC=#10$ READVBLK, - 
PY w*MBX_BU 
2 3 weUF Si? § ; read from the mailbox_S 
56 5100. ce DE MOVAL W*“*MBX_BUF,R6 ; set the MBX buffer 
57 O365'CF ODE MOVAL W*TEST_DATA,R7 ; find the master data 
58 00000100 8F 00 MOVL #BUF _STZ_S,R8 
20FC°CF 2100°CF MOVW W*MBCHANS ,W*MBCHAN 3 get the channel number 
OC7A'CF 00 CALLS #0,W*BUF ¢ : check the data 
et § CHAN=W™MBCHANS 3 deassign the channel 
20FC°CF 2100°CF B80 3; get the channel number 


3010. S CHAN=W*MBCHANG 
FUNC=#108 unl TEVBLK.~ 
= rest rata 


write to the mailbox_G 
zero the mailbox buffer 


0200 8F 00 2180°CF 00 2c 


+b 
MOVCS re uanBX ris a ,#512,W*MBX_BUF 


2180' CF 
$Q10_S CHANSU"ABCHAN 6,- 
C=#10$ READVBLK, = 
Bi =W*mMBs 
P2 =#BUF_S 2_§«2 ; read from the mailbox_G 
§ 6480. CF DE MOVAL W*MBX_BUF ; set the mailbox but rar” 
365'CF DE MOVAL W*TEST DATA,R7 : find the master data 
58 00009200 8F 0 MOVL #BUF STZ S*2, 
20F C'CF FE'CF B60 MOV W*MBCHANG ,W“MBCHAN i get the channel number 
OC7A'CF 00 FB CALLS #0,w*BuF ¢ > check the data 
SDASSGN_S CHAN=W"MBCHANG : deassign the channel 


: Test PROMSK (protection mask) 


FU —“OOODNOUNEWWIN OO  ONOUESWN—"OVOONOUFSW M—-"OOMW 


FUP PUPP SVS VPVSVSPUSTSISISIIIS —- PIII OFT 
NSNNNNOAAOAAAAAAAOM NWMMNUMUUUUEBRERARE PEE 


NEXT_TEST 


PP OS OS OS OS Oe oe oe oe oe oe oe oe ed et ek ek ek ae ek ee ae ee ee ee ee re ee ee 
SSN NN NNO OA MIMI OOOO TN MMO TO WWWWD \ PS OOWONNNNOOUIMMIE SE Srororrrn «1H 
MmMmMmMmmmmMroS Oh S MPV MOWWWIIO OTD FO OWOOCOCOD & eS S| S| OP PK FP KH DE NGVIOMOMOOO m-~< 


@ 
Do 
SOOOOCOCOOCOOOSOSCOOSOOSOOOOOOOOOBVOOOOCSOOCOO COCO OO OOOO O OOOO OOOOOOOOOOO 
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B 
be $07 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 0: 47: AX/VMS Macro V04- Page 
4-800 CREMBN TESTS ~SEEi 8B? BO:35:88 ANC URS Bare Vee e Oe wansy 29 
2063'CF 4 DO 047 MOVL #4 ,W*CURRENT_TC 
° DD 04 PUSHL 
, QE 16" f FB 04 CALLS ,WeREG SAVE 
$037 CF O08 ee DE Q48A 75 ROvaL UACKEMeX, wi SERV_RAME 3; set service name 
98'CF O796'CF DE 04 £6 VAL W°UM,W*MOD : set mode 
49 7 SCRERBX S$ BRAF Lose 
49 £8 CHAN. =W*MBCHANS, - 
49 7 MAXMSG=#MBBUF ,- 
49 0 BUF QUO0=#BUF 5 2.S,° 
49 1 PRO ee kee PY 
49 g Yai i try  s form 
4BD FAIL “CHECK ee NORM 3; check success 
gi DD 4BD PUSHL ass. MAL 
OE20'CF 1 FB O4BF CALLS URE. CHECK 
At i SGETCHN_S CHANeWeng HANS ie teak chancel 
i ge e channel char. 
2124"CF 3303 BE BY ODA 386 cnew eapueet |W°MBCHR+DIB$W_VPROT ° ° 
i 2S 4E BEQL 10$ 3; branch if O.K. 
g46 "CF DD 4E 8 PUSHL Nt et 
00003303 8F DD bee 9 PUSHL 03 
O34A'CF OF 4ED 90 PUSHAL “PROT 
1501'CF 03 FB berg $9 108 CALLS #3,W*PRINT_FAIL ; print the error 
1FBB'CF D4 O4F6 9 CLRL Bakens careers PRMFLG 3 make it temporar 
1FC3°CF 0000 400 HH DO O4FA 30 MOVL or WnCRESCRERAXS ; set max. message size 
1FC7"CF 0000 400 F pO 0503 595 MOVL  #BUF siz, G,W°CR EOeRERBXe. BUF QUO : set the buffer quota 
1FCB'CF 00003303 BF 00 306 96 MOVL  -#°X33 SERESCREMBKS PROMS : clear protection mask 
1FD3'CF 0154'CF DE 51 97 yt U-LOGNA MG, UERESEREMBRS LOGNAM ; set the lognam 
ray 98 SCREMB W*CRE 3 try .9 form 
05 99 FAIL_C CHECK” gee NORM 3 check success 
01 DD 05 ; ass, NORMAL 
OE20'CF 01 FB 05 CAL tt UW REG. CHECK 
05 C 690 SGETCHN_S CHAN =ytnBCH 
5 601 rede rs BHA 3 eke MBX_G chernel char. 
2124'°CF 3303 8F 81 54 one CMPW #*x350 W"MBCHRSDIBSW. VPROT 3 ere PROM 
13. 13) «054 60 BEQL 20$ r 0 tag 
guee ge DD 548 604 PUSHL Nal ts lites 
00003303 8F DD O54F 605 PUSHL #*x53503 
O34A'CF DF 555 606 PUSHAL W*PROT 
1501'°CF O03 FB 4 oR 208 CALLS #3,W*PRINT_FAIL i print the error 
OCFC'CF OO FB Q55 $8 CALLS #0,W*VERIFY_MBX 3 read,write,verify,delete MB 
OC3D'CF 00 FB 36 i P CALLS #0,W*ERLBUF “DUMP ; dump errors 
12: 
56 ai? : Test ACMODE (super mode) 
36 615 ;- 
: 616 NEXT_TEST 
: STP5: 
2063'CF 05 dO MOVL #5,W*CURRENT_TC 
BY DD D PUSHL a 
OE16'CF FB of CALLS @ pWeREG SAVE 
; 97°CF OOF Ee DE 4 617 MOVAL W*CREMBX,W°SERV_RAME ; set service name 
9B'CF ‘CF ODE 078 618 MOVAL W°SM, W“MODE : declare super mode 
8 61 SCMKRNL_S W“SETUP_SUPER,W*ARGLST ; declare CHMS handler 


E 


D 
OC3D'CF 


OC3D'CF 


OE16'CF 


443°C 
CFC'C 


OC3D'CF 


2063'CF 


0E16'CF 
2697'CF 008' CF 


Sa ee ee hee teh ah oh ah ad ah ab abana 


PAPA SA AAOOO AO 
FW OC OONOUSwr— 


AAAPARAD 
We 
—DOONAUN 


FPAAAOA OOD 


PARE MANIATIUII 
—SOONOUS wiry 


LRPDPPDPPAEPXPPPPPADP PPP PPP DP DPD PPP PaaS TSI ISTITUTO 
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ono? 
movuoSe 
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M SERVICE TESTS (SUCC S.C.) uot Sth} 9 90:47: 


-SEP- 
ADDL2 S*#EXESC_CMSTKS2+16,SP 
OVL SP,FP 
CALLS #0,W*ERLBUF_DUMP 
CHMS #1 
CALLS #0,W*ERLBUF_DUMP 


> Test EXEC mode 


NEXT_TEST 


MOVL a. »W*CURRENT_TC 


PUSHL 

CALLS #1 WoREG SAVE 
MOVAL W*CREMBX,W*SERV_NAME 
MOVAL W*EM.W* aH 
SCMEXEC_ S08 B*10$ 


PUSH #0 
LLS #1,W°REG SAVE 
SCRERBX § PRMFLGEA #0,- 
CHA =W*MBCHANS , - 


LOGNA 

FAIL ACHECKNP. S$S$_NORM 
ysie Wes N ORMAL 

#1 AN al 


VA 
SCREMBX GW 
FAIL. CHECENE Hes NORMAL 

#SS$_NORMAL 
CAL ts #1 iene. CHECKNP 
a 0, UPVERIFY 


CALLS #0,W*ERLBUF _DUMP 


: Test KERNEL mode 


NEXT_TEST 


SH #7 .W*CURRENT_TC 
CALLS #1 .WeREG, SAVE 
MOVAL W*CREMBX,W*SERV_RAME 


AX/VMS Macro vO Page 
UETPSY. Bae aay eesoy MAR: 1 ° 


: oq ives Ay stack ptr. 


dump errors 
i do the super tests 
; dump any errors 


; set service name 
; declare exec mode 
; go to exec mode 


3; save the registers 


; set the max. yo size 
; set the buffer quota 

; set the access mode (super) 
; try  s form 

3 check success 


; make it temporary 
: set the max. messa . size 
set the Oy? rer quote 


E° ; move in AC 


; set the lognam 
3; try .G form 
; check success 


i; read,write,verify,delete MBX 


; dump errors 


; set service name 


SATSS$07 
VO4=000 
2598'CF  0146'CF 
0067 


00 
OE16'CF 01 


01 

1443'CF 01 

1FBB' CF 

1FC3'CF 00000400 HH 
1FC7'CF 00000400 8F 
1FCF°CF 00 

TFD3'CF «0154°CF 

01 

1443'CF 01 

OCFC'CF 00 

OC3SD'CF 00 

‘ 2063'°CF 08 
By 

0E16'CF 1 

2598'CF 796'CF 
2697'CF 008'CF 


i 
O€20°CE 01 
1FC3°CF o000e sf 
IFC7*CF 00090400 BF 


1FD3° uF A54°Cr 


D 
tee ens MEHR AE SET 


om 


PARAS AOSSAOOAO 
MEW OOONOULS Ww 


SENN NIA AAOOOm 


cvcoVvVco"SO 
mooorao 


AAAS OOO 


ome 
owe 


nm 
wo 
PAAAAPA ASAIO 
OO OCMM@Mcnamoc 
M—OCONOUL Ww 


SNAAAAAAO 
ooo 
We w 


cov:vro7s9 
MOCOSDSO 
SYN 


ONO Ww 


1 


W*KM W*MODE 


mL fog tos 


PUSHL 
CAL At W*REG_SAVE 
Sth aex Ss PRMELGEAQ, - 
HAN =W“MBCHANS, = 
RAINS G= NU - 
BUFQUO=#BUF SfzS$ 


ACHODEs =A SL8t eRKEL.- 
M=W*LOG SNAAS 


LOGNA 

FAIL -CHECKNP SS$_NORMA 
4 S$ NORM 

at ts wREG CHECKNP 

CLRL CALLS fig PRAFLG 

MOVL § #MBBUF W°CREsCREMBXS 

MOVL  #BUF_SIZ_G,W*CR E+ CRE 


8 BUF QUO 


; set mode 


; save the registers 


try  .s form 
check success 


make it temporary 
; get oe parameter 
set @ Sut ier ate 


RE Emax 
MOVL #PSLSC KERNEL w*c Reman Coe ARobe : Pn: in ACMOD 


MOVAL ULOGNANG, ws ERE SER 
SCREMBX_G W 
FAIL TEMECRNP ef. 
Wes N 
CAL te #1 “wth. CHE CKNP 
CALLS 40, Ue VERIFY _MBX 


CALLS #0,W*ERLBUF _DUMP 


; Test USER mode 


NEXT_TEST 


MOVL #8, W*CURRENT_TC 
PUSHL 
CALLS | _#1,W*REG_SAVE 
MOVAL = W°URU* moe 
REMBX ,W*SERV_NAME 
SCREMBX_§ PRAFLG=AO. « 
N. =WSMBCHANS ,~ 


LOGN 
FAIL_CHECK Ss8_ NORM 
PUSH asS8.N 
CAL UREG. CHECK 
CLRL orth US alge $ PRAFL 
MOVL aMBBUE UFCRECRERBR 


UL GGNANG, W*CRE+CREMBX 
SCRERBX G WACR 
FAIL_CHECK SS$_NORMAL 


set the lognam 
: try .9 form 
; check success 


; read write,verify,delete MBX 


; dump errors 


; reset user mode 
3; set service name 


try _S form 
; check success 


; make it temporary 
: set MAXMSG parameter 


XMS 
EP ERERGXS BUFQUO ; set the buffer quota 
HOVE Ur ge eee! WCRESCRE x5 ACROOE 


; set the acmode 
; set the lognam 
: try .G form 
3; check success 
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CREMB E é - ahitaty - -SEP- 3b 90:38: UETPSY.S Face yee SOF MAR: 1 ° (1) 
1 DD Pe PUSHL e $$_NORMAL 
E20'CF 1 FB Q7 f CALLS ,W*REG_ CHECK 
Hatate FB O74 108 CALLS @# M VERIFY MBX ; read,write,verify,delete MBX 
C3D'CF FB 0746 9 CALLS #0,W*ERLBUF- DUMP ; dump errors 
748 4 .SBTTL FALL CREMBX~TESTS 
sig yg 3*** 
748 a : Test access violation for logical name 
cia a | 
748 i$ ‘ NEXT_TEST 
748 STP9: 
2063'CF 44 44 oe nat #9,W*CURRENT_TC 
OE16'CF 63 FB 75 CALLS #1 eae SAVE 
75 718 SCREMBX_S CHAN =MBCHANS 
757,71 AmeZERO_ ADBR_DESCR : page zero 
76E 720 FAIL ACHECK’ ges, ACCV 3; check success 
oc DD 076 PUSHL AS38-4 CCVIO 
OE20'CF 01 FB 0775 CALLS #1,W"REG_CHECK 
opps | 55) itt 
OFF : Test access violation for channel number 
775 725 :=== 
144 726 NEXT_TEST 
Bree STP10: 
2063'CF 5 ” 14a ort 47 #10,W*CURRENT_TC 
OE16°CF 01 FB O77C CALLS #1,W*REG_SAVE 
781 ets SCREMBX_S CHA act 3 channel zero 
af) 728 FAIL_CHECK SS$_ SV10 3 check success 
Oc DD 079 Us ass aA 
OE20'CF 01 FB 794 CALLS #i,W REG. TRE CK 
5398 i*** 
799 +7 , + Test invalid logical name descriptor 
739938 
199 734 * NEXT_TEST 
799 STP11: 
2063'CF 8 + eee nat ait »W*CURRENT_TC 
OE16"CF 01 8 CALLS ; wREG SAVE 
7A 735 SCREMBX_S Phen an C 
7A Pe M=LEN 00. bESCR ; zero Length name! 
00000156 aF oD pee 7 FAIL ~CHEgE SS. ivLR6 TULOGNAR 3 check success 
Petites Bt FB ree CALLS #1 »W*REG_ CHECK 
re 53 gag 
70?) 74 Test valid 255 sdoracter Logical name descriptor 
ree 5 : (CREMBX service prefixes "MBX$" to the string!) 
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SATSSSO7 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:4 AX/VMS Macro V04- Page 20 Ss 
y042000 FAIL CREMBX Tests ie 38¢ 90:32 ‘06 YET bey. Bae SSATSSsOo MAR: 1 ° 9) vi 
Pee tt} je-- 
ite 44 NEXT_TEST 
7C? STP12 
2063'CF C pO O7C7 MOVL #12,W*CURRENT_TC 
: 6 pd Orcc PUSHL 
OE 16'CF 1 fe 7C CALLS 4a A SAVE 
QOOE ‘CF :  *F 7D 745 MOVB #1 LEREATED’F ; assume it works 
7D 146 SCREMBX_S CHAN =M CHAND , = 
708 74 LOGNAM=LEN, AND : 255 chars Long 
04 50 44 7EF 74 BLBS RO,10$ ; did it work? 
OOOE ' CF 4 ote fe CLRB ee sabe FLAG 3 aeeerens te not 
7F 50 108: FAIL CHECK SS$_RORMAL ; check success 
01 OD Pre PUSH #SS$_NORMA 
OE20'CF 01 FB 7F CALLS #1 »W*REG_ CHECK 
7FD) «= 751s #44 
7FD £3 3 
7FD «©6755 ;:-~ Test DELMBX sys service invalid channel ( 0 ) 
O7FD 754; 
O7FD 755 ;-== 
O7FD 756 NEXT_TEST 
O7FD 
gree STP13 
2063'CF OD dO 7FD MOVL #13,W*°CURRENT_TC 
0 OD 0802 Pus 
OE16'CF 1 FB 0804 CALLS #1,W*REG_SAVE 
2697°CF O120'CF DE 0809 £757 MOVAL DELMBX, SERV NAME~ ; set service name 
0810 758 SDELMBX_S CHAN = CHANNEL_ZERO 
081c 759 FAIL CHECK SS$_IVCHAN 3; check int. failure 
0000013C 8F DD O81C PUSH #SS$_IVCHA 
OE20'CF 01 FB 08 § CALLS ai UFREG. CHECK 
a eee 
0827 166 ; Test DELMBX sys service invalid channel ( >#channels ) 
0827 763; 
827 764 :=- 
; 4 765 NEXT_TEST 
7 STP14 
2063'CF OE dO 7 MOVL #14,W*CURRENT_TC 
00 OD C PUSHL 
E16'CF 01 FB CALLS #1,W*REG_SAVE 
103 CF B0 0 766 MOVW  MBCHAND,-(SP) ; save the channel # 
2102'CF 690 000" 9F 8 76 MOVW yon CHINDX ,MBCHAND 3 get max # channel 
2102'CF 10 A 4 768 ADDW2 #*X10,MBCHAND : one nibble more 
4 162 SDELMBX S CHAN = MBCHAND 
5 770 FAIL “CHECK” $_IVCHAN : check int. failure 
0000013C 8F ODD 5 Busi #SS$_IVCHA 
Oreo oc 1 fe 5 CA rts #1,W*REG_ CHECK 
102'CF BE 8B 3 Ht seg MOV SPY, MBCHAND : get back the channel 
773 : 
ore ; Test DELMBX sys service - delete one just created 
OOOE ‘CF % 4 58 TSTB CREATED_FLAG 3 not if it wasn’t created 
1F 1 6 778 BEQL SKIP_DECETE 
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SATS y - SATS SYSTEM SERVICE TESTS suc’ §.C.) 16-SEP-1 AX/VMS Macro V04- Page 21 
V04- FAIL CREMBX TESTS g- Str 38 8? ‘36 ‘08 UETPSY.S £58 Hees go MAR; 1 ° a) 
779 NEXT_TEST 
STP15 
2063'CF F dO MOVL #15,W*CURRENT_TC 
0 OD dD PUSHL 
OE16'CF 1 FB F gabe a a & SAVE 
4 780 SDELMBX_S CHAN = MACHA 
781 FAIL_CHECK SS$_NORMAL ; should be 0O.K. 
8 DD PUSHL ~ $$_NORM 
OE20'CF 1 FB CALLS UTREG. CHECK 
7 § SKIP_DELETE: 
, om ie 
4 i 4 5 ; Test DELMBX sys service - channel not assigned 
: ae. § _ 
7 788 NEXT_TEST 
0887 
+3 7 STP16: 
2063'CF 10 dO 887 MOVL #16,W*CURRENT_TC 
00 DD 43 C PUSHL 
0E16'CF 01 FB 08 . CALLS #1 Yue" SAVE 
893 789 SDASSGN_S CHAN = MBCH : deassign the channel 
07 50 =«2«€€8 HH 790 BLBS RO,120$ ; Skip error report if OK 
50 dD A2 791 PU 0 ; Save error code 
14BF ‘CF 01 FB Baa £6 CALLS #1 +1 oy SSE 3; Print the failure 
O8A9 793 120$:  $DELMBX_S CHAN = RBC HAND t check int. failure 
0885 794 FAIL_CHECK ss. NOPRIV ; ‘channel not assigned’ 
2 DD 08B5 PUSHL ~ #SS$_NOPRIV 
OE20'CF 01 FB tot CALLS #1 »W*REG_ CHECK 
BBC 386795 3 +44 
08BC 38 3 
poet a4 ; Test DELMBX sys service - device not mailbox 
asst 799 j--- 
pee 800 NEXT_TEST 
3 STP17 
2063'CF 11 C MOVL #17,W*CURRENT_TC 
00 OD C1 PUSHL 
0E16'CF 01 C3 CALLS #1,W*REG SAVE 
C 01 SASSIGN_S DEVNAM = SYS _DEV,- : system disk assigned 
C ¢ CHAN = MBCHANRD 
07 28 c8 D BLBS RO,120$ ; Skip error report if OK 
DD dC 4 PUSHL R ; Save error code 
14BF ‘CF 01 FB 4 5 CALLS #1,NONSUB_SSE ; Print the failure 
E § 120$:  $DELMBX_S CHAN = POCHANe 
EF 0 FAIL_CHECK SS$_ DEVN OTMBX ; check int. failure 
00000074 of DD EF PUSHL 4 ae abet pcre 
OE 20'CF 1 FB F5 CALLS @# REG. CHECK 
BFA seg SDASSGN_S CHAN = nOtHan ; deassign SYSSSYSDEVICE 
9 
; é Test no privilege for delete permanent mailbox 
906 
906 
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S0us880 FAIL CREMBX TESTS g73EF P=} 1382 90:39 229: 06 GE TP SY. SRE ISATSSSOo MAR: 1 ° 4) 
9 
4 STP18: 
2063'CF is 43 44 pov i »W*CURRENT_TC 
pete CF 1 eB 9 cat LS wines. SAVE 
OE'CF 1 9 9 15 MOVB SEREATED F 3; assume it works 
91 18 SCREMBX § ‘BRRFLG 
91781 CHAN oT 
SF 58 92A 18 BLBS RO 3; Skip erter ve ort if OK 
O00E' 4 0920 81 CLRB CREATED .FLAG : it didn’ 
DD QO9 PUSHL ; Save ora yo F 
14BF ‘CF FR 2 1208 CALLS #1,NONSUB_SSE ; Print the failure 
OO0E eg fs 9 TSTB CREATED. FLAG 3 was it created? 
1 93C¢ 4 BEQL :; branch if not 
93E 5 SSETPRV_S tht aed dP ; disable perm privilege 
93E 8 ADR=PRM_PRV_MASK 
07 50 EB OQ94F BLBS RO. 5208 ; Skip error report if OK 
50 dD 0952 § 3 PUSHL R 3; Save error code 
14BF'CF O01 FB R26 B83 0008 CALLS #1,NONSUB_SSE ; Print the failure 
$329 831 SDELMBX_S 2 eee ee : aptenet dohetton 
0965 832 FAIL_C HECK _NOPRIV ; should fail 
$¢ DD baee “ #SS$_NOPRIV 
OE20'CF 1 FB 0967 CAL Us #1 ,W*REG_CHECK 
096C 833 SSETPRV_S Hdl ABLE; = i; re-enable perm privilege 
bas See VADR=PRM_PRV_MASK 
07 50 €8 O97D 835 BLBS RO. S08 ; Skip error report if OK 
50 OD B38 539 PUSHL R ; Save error code 
14BF ‘CF 01 FB a Ht 3208 CALLS #1 ,NONSUB_SSE ; Print the failure 
$387 39 SDELMBX_S CHAN=MBCHAND 3; delete the mailbox 
07 50 €8 0993 40 BLBS RO,420$ ; Skip error report if OK 
50 DD 144 41 PUSH is ; Save error code 
14BF 'CF 01 FB 144 4g 4208 CALLS #1,NONSUB_SSE ; Print the failure 
990 44 ;4++ 
99D 45; 
99D rf) ; Test invalid Loateal name descriptor ( >255 characters ) 
99D 47 ; (CREMBX service prefixes 'MBX$* to the string!); 
99D 48 ; 
99D 49 ;--- 
99D 850 NEXT_TEST 
99D 
99D STP19 
2063'°CF 13 pe +43 not i »W*CURRENT_TC 
0E16'CF FB Q9A4 CALLS gi eW nes SAVE 
2697'CF 6008" CF DE OQ9A9 51 OVAL CREW. SERV_NAME~ ; set service name 
98 2¢ SCREHBX .5 CHA one HAN Pen 
9B 5 OGN NAN= =LEN 256_DESCR ; >255 chars long 
9C 54 FAIL_CHECK a. IVLOGRAM ~ 3 check success 
00000154 8F DD 09C7 PUSH ass nL VLOGNAM 
OE20'CF 1 FB 4 myer CA its W"REG_CHECK 
9D eS : 
9D § 3; Test logical name translation Limit (=10) 


SSS 


2063'CF 


14 

0 

OE16'CF 1 

3 

QOOD'CF 41 BF 
OOOB'CF 42 BF 


2063°CF 15 


0E16'CF 
0008' CF 


07 
14BF ‘CF 


ovum 


openers Bt F 


“Soman ouonOm 
NPVwOowroem 


no 
oo 


OOCOCOCCCCOOCOCOCCOCOCOCOOOOOOOCOOOOOOOOOOOOOO OM 
>>r>rrrrr oononoowowowvowowowvowoJowowvowowvowovono 
——DOCOCOMMMmMmMmmmmmmmnooolvlcvVvlTTcTd mun 
NWO & SM mmmemmem moorOom O~srororofrofrorp 


PUWWWNN ina SS 


>>>>>rrrr>>r>r>rrrr>r 


> 
= 
NVOCTWWWOWOIOIWOLSoCoo 


INCB EQUIV: NAME +4 
AOBLSS #9,R2,10$ 
POPR en 


< 
LOGIC _NAME+4 
CHAR" =MBCHANS,- 


Sete Se Se Se Ge Se Se Be 


Bump the equiv name by one 
Make 9 Levels 

Restore R2 

decrement due to loop incr 
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TEM SERVICE TESTS csuct $.C.) 16-SEP-19 147: AX/VMS Macro V04- Pa 23 Si) 
x Tests Tet 7 82: 4:29: 5:98 et ETPSY.S See Sayessoy MAR: 1 - (1) v( 
i TT ONEXT_LTEST 
STF20 
MOVL Ege CURRENT FE 
PUSHL 
ote #1,W*REG_SAVE 
61 PUSHR #*M<R2> ; Save R2"s contents 
$¢ CLRL R2 ; Set index variable 
6 MOVB #*A/A/ ,EQUIV_NAME+4 ; init equivalence name 
rt: MOVB #°A/B/.LOGIC~ NAME +4 ; init logical name 
06 : Create 9 levels of logical names ( MBXSNAMEB := NAMEA ) 
es : (10 translations) 
10s: 
79 SCRELOG_S rate eG p MBX_LOGIC_NAME ,- 
= 
te aoe stan 2 4 “£QUIV_NAME Create a level of logical name 
7 BLBS Skip error report if OK 
74 PUSHL Save error code 
75 CALLS i art SSE Print the failure 
A: 120$: INCB LOGIC_NAME+4 Bump the logical name by one 
7 
is 
80 
i 
BBS 


0.0000 000000 
COONOUS 


DECB 
SCREMBX_S 

LOGN waned LOGIC_NAME 
FAIL =CHECK 558 _N0 ORMAL 


CALLS 


aSsse NORM 
#1,W*REG_ CHECK 
+++ 


Test logical name translation too deep (>10) 


Sete Ge Ge Se 


NEXT_TEST 


STP21: 
MOVL 


#21,W*CURRENT_TC 
PUSHL # 
CAL be as »W*REG_SAVE 
toeie +4 
ee = MBX _LOGIC_NAME ,- 


LFL 
noes Nan = 4 “Eauly _NAME 


INCB 
SCRELOG_S 


BLBS 
PUSHL 
CA ti 1,NONSUB asst 
SCREMBX_S S' CHAN =RB 


LOGN |; Logit ’ NAME 
FAIL =CNeEE gall YLNAM 
#sS$. TOOMANYLNAM 
CALLS #1 ,W*REG_CHECK 


should be 0.K. 
check success 


; Bump the logical name by one 


Create one more level 
Skip error report if OK 
Save error code 

Print the failure 


should fail 
check success 
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SAT S380? = SAT R 
v04= FAIL S -SEP=1 4:29: Y.S CISATSSS (1) 


$ 
$ 
: Test no privilege for permanent mailbox 
4 
5 


NEXT_TEST 


STP22: 
MOVL ogee »W*CURRENT_TC 
ste: 


>Prrrrrrrrrr>r 


PUSHL Save error code 
#1,NONSUB_SSE 


CALLS ; Print the failure 
1208: SCREMBX _S PRMFLG=91,- 
AN =MBCHANS 
FAIL_CHECK SS$_ NOP RIV 3; check success 
PUSHL ~ #SS$_NOPRIV 
CALLS #1,W*REG_CHECK 


oowoowoovono 


S$ 
CREMB 
A 
A 
A 
A 
A 
A 
A 
2063'CF 16 BO A 
OE16'CF 1 FB 1 #1,W*REG SAVE 
é 0? seophetors $ “EheeLesa6ls PRY MA MASK disable ivil 
; erm privilege 
07 28 E8 OAA : BLBS “Rgrt08 ; Skip orrer renert if°OK 
0 OD AAA 0 R 
14BF ‘CF 01 FB C 10 
0 } 1) 
ee bei 
OE20'CF é4 § é 


AC 914 s++4 
ACB 31 Test ivil for t ilb 
; Test no privilege for temporary mailbox 
ACB 319 : 
QACB at joo 
OACB O91 NEXT_TEST 
OACB 
OQACB STP23: 
2063'CF 17 dO OACB MOVL #23, W*CURRENT_TC 
00 OD OADO PUSHL # 
0E16'CF 01 FB OAD CALLS #1,W*REG_ SAVE 
AD 920 SSETPRV_S ENBELG=#D1SABLE ~ 
AD? 921 yagr R=TMP_PRV _MASK ; disable temp privilege 
07 50 EB QOAEB 9 ¢ BLS RO. 1 y0$ 3; Skip error report if OK 
50 OD wre 9 PUSHL RO 3; Save error code 
14BF'CF 01 FB OAED 924 CALLS #1 ge SSE ; Print the failure 
OAF2 925 120$: $CREMBX_S CHAN =MBCHANS 
080 926 FAIL_CHECK S¢$_NOPRIV : check success 
s OD ti PUSHL #SSS$_NOPRI 
OE20'CF 1 FB yo 7 CALLS #1 WPREG_CHECK 
43 927 SSETPRV_S ENBFLG=# #ENABLE +- ; re-enable privileges 
+3 C 928 RVADR=TMP_PRM_PRV_MASK 
07 50 ~=E8 1D 8929 BLBS RO” ’ ; Skip error report if OK 
50 OD 2 9 PUSHL ; Save error code 
14BF ‘CF 01 FB 3 ; 2208 CALLS #1,NONSUB_SSE ; Print the failure 
2% 
02. BE 7 934 CHMS #2 3 reset super mode handler to DCL 
9 935 TEST_END 
69F ‘CF 0D 9 PUSHL W*TMD_ADDR 
6A3'CF ODD D PUSHL W*TMN_ADDR 
DD PUSHL #2 
2594'CF DD PUSHL W*MOD_MSG_CODE 
0000 900° GF 4 F CALLS #$$T1>G*LTBSSIGNAL 
2596 'CF 1 Oe i INSV  #1,#STS$V_INHIB_MSG,#1,W*°MOD_MSG_CODE 
94°CF OD 4 PUSHL W* § CODE 
00000000'GF 01 FB 49 CALLS #1,G*SYSSEXIT 


VOu=000. Rout 


zu 
m 


tttttittttittt tit tt ttt tt ttt tt ttt tt tt ttt tt 


sw weal ah ab dh Ab Ab db db db db db db db Ab db db db Ab db dh db db db db db Ab dh db Ab db db Ah dh db db Ah db db Ab Ah db Ab dh ab db ab db ab dh ab ah ab ah ah A ok A 


SOOOCOCSOOOCOCSCOOCOCO COCO COCO OO OOOO COSCO OSOOOO OOOO OOO COOOOOOOOOOOOOO 


tapers 
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WOOOOOOOOOOOOOOOOOVOOVOOOOOOO 
DPD DPV BB BS BS SB EIA 


WR OOO NAUES WN | O OONOU ES Wn" OU0OOn~I 


964 ; 


OOO O00090009 000909 09 09098 SINISE NNO 


WOWOOOOOOOOOOOOOOOOOOOOOOO 


WR SO ODNAU EW 8 OONOUES WIN —O0 


-SEP=1 UETPSY.SRCJSATSS (2) v 
SBTTL ROUTINES 
SBTTL SETUP_SUPER ROUTINE 


++ 


Routine to declare an initial CHMS handler from user mode. 
FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 


SCMKRNL_S W*SETUP_SUPER,ARGLST 


ARGLST = address of a pointer to a one parameter argument List conta 
the address of the entry mask of the CHMS handler 


INPUT PARAMETERS: 
ARGLST 


; IMPLICIT INPUTS 


NONE 
OUTPUT PARAMETERS: 
Declares a change mode handler for super mode which must be 


reset to DCL in the users handler routine when the handler is 
no longer needed. 


IMPLICIT OUTPUTS: 


NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
; ON ENTRY: 
wort F | USP => ! 
i i USER } 
i ap i i 
i ofp i CALL } 
oes 
i 0 i i FRAME | 
' ' ' ' 
ae ee Senet 
wel 
iSRVEXIT! 
Poe. 
i pst} 


SATSS$07 = 
v04- SET 
00000000 
00000000 

000C 

53 03 D 

EE AF 0A D 
ED AF + AC D 
52 CAD D 

a. § 
62 7C'AF 7 

OA F 

16 
04 3 04 

5 1 00 
04 
7E 04 
B82°AF 6E FA 
0000 
00 dD 
OE16'CF O01 FB 
01 oD 
1443°CF 801 «FB 
03C00000 8F oD 
AS AF DD 
02 


“ 
mo 
zma- 


AEMMMOODOULSNMD WS FPOOwoFLleroo uU~< 


COCO CD08 SIN SINS PAOIUIIIII_o 


rit tit tit ttt ttt tt ttt ttt tt] 


Dover 


SOHoo® 


10 ¢ 

t 

1024 PUSHL 
1025 REI 


RETURN_PC: 
- LONG 
HANDLER ts 


SETUP_SUPER: 
RD 


PUSHL 


pavice TESTS (suct $20.) 7 


SOCLCMH_S 
FAIL CHE KNP SS 


SEP=1984 00:4 AX/VMS Macr 
~$FE 384 8:38 98 LOETPSY Y.SRCJ 
; storage for user return PC 
; storage for handler PC 


<R2,R3> 
#Pne USP get t the user call frame address 
SFSL “SAVE Bccr3) .B* RETURN. C ; get the user return PC 
4 (APT ,HANBLER Bt : “save he handler address 
SFSL ghy FP(FP), 3 get saved FP 
sraexe se E MSTKS?. R : ack over change mode stack frame 
B*20$ turn address 


) 
accPstsc SUPER@PSLSS_ CURMODS+PSLSC rSUPER>. - 
#PSLS$S— ~CURMODS2 
S*#SS$_NORMAL , rb ; set correct return code 
enter super mode 


-(SP) 3; set up quasy PSL 

(SP) ,B*30$ ; create initial call frame 
“M<> 3 entry mask 

#0 : — a dummy parameter 

#1 Pn oy ave the registers 


ANDLER PC Be, W*PRVHND1 . io’; set real handler 
; cheek for success 
Sin ¥355. 


cats Wlevaeperiee CORMOD>= 
C QSERAPSLSV -PRVMOD>>; set return to user 
RETURN_ : 7” the return PC 

3 return 


SaYSSSO7. MAR: 1 


4(R2) ; set current and previous mode to super 
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SOus8e0 SUPER _MODE et 1 90:39:98 UETPSY.SRCJ ee MAR; 1 . (3) 
eae ! 7 eSBTTL SUPER_MODE 
BAC 1 § : FUNCTIONAL DESCRIPTION: 
W ! ? 3 Routine to handle the CHMS instructions. 
BAC 1 : > CALLING SEQUENCE : 
RAE 108% _ 
BAC 1035 : INPUT PARAMETERS: 
AC 1 § ; SP=> — parameter 
BAC 1 3 PC 
ABE ie 
o ! re : The CHMS parameter can be one of the eae 
Seat 1 g : 1 = execute SCREMBX (_S and _G for 
fens ee ; 2 = execute a SDCLCMH_S to réset 4 CHMS handler to DCL 
oat 1045 : OUTPUT PARAMETERS: 
OBAC 1968 : NONE 
Bae eh 
OBAC 1949 SUPER_MODE : 
50 8E& DO OBAC 320 MOVL (SP)+,RO 3 get CHM parameter off the stack 
02 01 50 &F peat 133) 108: CASEB RO,#1,#2 3; do the right thing 
0004" OBB 1988 “WORD »=- 208-108 
006C' ton Wee 208 ~WORD A30-10$ 
00 oD 0BB7 1056 "  PUSHL 
OE16"CF 01 fB ned I32t crits, f § “PRnFL GE save : save the registers 
pees 1989 HAN =W*MBCHANS, - 
—E 1060 RAIRSG=AMBBUF - 
OBBE 1061 BUF QUO=#BUF Siz 
OBBE 106¢ ACHODE=#PSLS¢ OBER, - 
OBBE 106 LOGNAM=W DENAAS ; try -s form 
te peor 1064 FAIL _CHECKNP. st - ae 3; check success 
1443'CF 01 FB ta CALLS UAEG CHECKNP 
1FBB'CF D4 tere 1065 CLRL Ga EReecRERSK $_P wee make it temporary 
1FC3°CF 00000400 8F 00 EA 1066 MOVL sReBUE UCR CREB XMSG set max. message size 
1FC7°CF 00000400 8F 00 F3 106 MOVL #BUF S{2 *CRERBAS BUFQUO ; set the buffer quota 
1FCF'CF 02 DO FC 1 3 MOVL  #PSL ses OPER, OERESERE MBRS Achooe > set the access mode 
1FD3'CF 0154'CF DE 344 1988 Se etex w* LSGRARG. W* CRESCREMBXS. cOgnan ; + pe ry = ge 
: Ge 3h 1071 FAIL TCHECEN $58 Noemi ite : chock success 
1443°CF 0 FB et} CALLS #1 “wen. CHE CKNP 
OCFC'CF 0 fe C1 1 CALLS o W*VERIFY_MBX ; read,write,verify,delete MBX 
~~. 2 18 ' iS A30 BRB ASO : get back to user mode 
. . VA W*DCLCMH y seev NAME 3 set service name pointe 
ettigtics ntl a ay i 76 SCLCNH S$ tte te 3; reset the CHMS By for DCL 
C35 107 FAIL_CHECK sS$_ NOR nail : check for success 
gi OD C PUSH ie 
OE20'CF 1 FB C CALLS w*™ REG. Matec 


N 12 
S888" SuRASpHSETE" SERGE TESTS SUCE 5-6) SEES BPSSTEOE RAYE MRTRAARESED anny 88 2 
02 ats 1858 — REI ; return to user mode 


Cc 
C 
C 
C 
C 
C 
C 
Cl 


= 
mammmmovo9 99999009099 


Ltn en 
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EM SERVICE TESTS (suct $C.) Mer see=188e BPSo:0G PARC yas Bacco vOseOS th) 


SEP=1984 


ee 


ST 
MP 
: ~-SBTTL ERLBUF_DUMP 
edly | DESCRIPTION: 


outine to check for errors in the error log buffer and 
report any that are there. 


CALLING SEQUENCE: 
CALLS #0,W*ERLBUF_DUMP 


INPUT PARAMETERS: 
FLAG 6 = 9 
= 


bit for no errors logged 


De De Se Oe Os Oe Be Se Se Be Oe Se Se Se Se eee 
> 


S$ SY 
F OU 
C3D 1081 
C3D 1 § 
(3D (7 
C35D 1084 
C35D 1085 
C3D (1 § 
C3D (1 
C3D (1 8 
C3D (1 
E3D 091 
(3D (1 38 FLAG bit for errors logge 
: . ! + if errors logged then buffer ERLB must contain legal format errors 
C30 1035 OUTPUT PARAMETERS: 
C3D (1 3g NONE 
C3D 109 
E3p 099° 
C3D 1100 ERLBUF_DUMP: 
001C C3D 1433 «WORD “M<R2,R3,R4> 
2A Oe 62 CE ES OC3F 11 é BLBC FLAG, 30 ; br if no errors to report 
52 OE67'CF ODE bres 1102 108 MOVAL ERLB,R2 ; set up buffer pointer 
62 if be29 1105 TSTL (R2) ; any more errors? 
6) 1 0C4B 1189 BEQL 30$ ; br not 
697'CR dO 0C4D 11 MOVL  (R2)+,W*SERV_NAME ; reset service name 
O63'CF 8 dO OC 36 1108 MOVL (R2)+,W*CURRENT_TC ; reset step # 
598'°CF DO OCS? 1109 MOVL (R2)+,W*MODE 3; reset the mode 
ez 9A OC5SC 1110 MOVZBL (R2)+,R3 3; get the longword count 
4 DO Fy! 4) 208 OVL R3,R4 3 and save it 
§ DD 8s 118 USHL (R2)+ 3 push a pereneter 
FR F5 O0C64 1114 SOBGTR R3,20$ : and push them all 
1501'CF 4 fe C67 «1115 CALLS R4,W*PRINT_FAIL ; print the failure 
dB 1 coc 1116 ‘ot BRB 10$ : do the next one 
OE63'CF OE67'CF ODE Ocee 1313 MOVAL W*ERLB,W*ELBP =; reset the buffer pointer 
OE67'CF D4 bc 111 CLRL W*ERLB ; set fresh terminater 
04 O0C79 1120 RET ; bail out 


no 
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7 = SATS SY ) 16-S 4 00: AX/VMS Macro V04- Page 30 
Sous8e0 Bur CHEEK  T9r3t et 8? $6 96 Yet PeY Y.S Bee ees Oo marst ° (4) 
354 1} Ss -SBTTL BUF _CHECK 
C7A 11 23 "FUNCTIONAL DESCRIPTION: 
C7A 1} H Routine to check the contents of a buffer against known good 
me) 2 Se 
C7A 11 8 + CALLING SEQUENCE: 
cra 1} 3 ; CALLS #0,W*BUF CHECK 3; check buffer 
C7A 1131 : INPUT PARAMETERS: 
C7A 11 § : R6 = buffer address 
C7A 11 3 R? = good data address 
74 i] ¢ 3 RB = Byte count 
C7A 11 g } OUTPUT PARAMETERS: 
C7A 11 3 NONE 
C7A 1138 ; 
EFA 100 
BES 1141 BUF _CHECK: 
O3FC OC7A 1328 «WORD *M<CR2,R3,R4,R5,R6,R7,R8,RO> 
59 56 oO OC7C 114 MOVL RY 3 save a he butt of Bs buffer address 
66 67 $e ¢ 544 W328 core Pag nt? » (R6) ; ghogs th the buf 
0O017"CF 53 59 3 0C85 1146 SUBL3. = RO, RB, W°ARGLST1+ : get bu "ee offset 
OO1B'CF 61 QA OQCB8B 1147 (R1) ,W*ARGLST1+1 ; get the good data 
0C90 1148 SGETCHN_S CHAN =W*MBCHAN, - 
C90 1149 ~_PRIBUF=W*PB ; get the unit number 
0013'CF 25C8'CF 3C 134+4 1150 MOVZWL vast urake UNIT+8,W*ARGLST14+4 3; get the unit number 
OO1F'CF 63 9A OCAD 4331 MOVZBL (R3),W*ARGCST1+16 3 get the bad data 
OCB2 11 : $GETMSG_S ASGiD=AuETPS. DATAER, = 
CB 115 MSGLEN=W“ML 
CB2 1154 BUFADREU*CTASTR, - 
CB2 1155 LAGS =#1 ; get the ctrstr 
cc 1156 SFAOL_S weCTRETR W°ML ,W*GETBUF, W*ARGLST1~ ; make it readable 
ODFS'CF 00 FB te 1157 CALLS” #0,W*STORE_STEP :'store error info. 
52 QE63'CF DO OCE? 1158 w*ELBP,R2 3; get error log buffer pointer 
90 OCEC 1159 MOVB #1, (R25+ ; save longword count 
82 258C°CF DE OCEF 1160 MOVAL W*“ML,(R2)+ 3; push desc. address 
6 D4 OCF4 1161 CLRL (R2) ; make a new terminator 
OE63'CF 5 dO ore 1196 108: MOVL R2,W*ELBP 3 reset buffer pointer 
04 OCFB 1164 a 2 oe ; return 
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SATSSSO7 = SATS SYSTEM SERVICE TESTS =SeP-1 47: AX/VMS Macro V04- p 
SOL S880 VERIF Y_MBX -SEP=1 198 82:5 29: ‘08 Yet bey Y.S See Sayeesoy.maR:1 - ; 
cre 1 § » SBTTL VERIFY_MBX 
CFC 11 8 ; FUNCTIONAL DESCRIPTION: 
CFC O14 : Routine to write to a mailbox, read the data back, verify the 
34 1109 3 3 results and delete the mailbox. 
CFC 1126 : CALLING SEQUENCE: 
14; Vie? ; CA »W*VERIFY_MBX 
cee 1123 : INPUT PARAMTERS 
CFC 1199 t OUTPUT PARAMETERS: 
CFC 1108 3 NONE 
EH 
CFC 1181 VERIFY_MBX: 
O3FC OCFC 11 é .WORD “M<R2,R3,R4,R5,R6,R7,RB,R9> : entry mask 
OcrE 11 $Q10_S CHAN=W*MBCHANS, 
OcrE 1 4 Reet Nh Ta 
CF 1186 ; write to the mailbox S$ 
0100 8F 00 2180°CE 00 2c Op i 1187 MOVCS Su" rt  auF- 13 #256,W°MBX_BUF : zero the MBX butter ” 
§p D 1188 $Q10.S CHAN=W*MBCHANS,- 
Ooe0 1189 FUNC=# 10S, READVBLK, - 
O20 1191 P2 =HBUF_ SIT. § : read from the mailbox 
56 2180) CF DE OD g 1198 MOVAL W*MBX BUF -R6 : set the MBX buffer 
se oooiss ar Bb BBR Hise NM SaLEST BALA? tig ant Nese 
20FC'CF 2100'°CF B80 0D61 1195 MOVW  W*MBCHANS, W°MBCHAN : get the channel number 
FFOD CF 00 FB 0D68 1196 CALLS #0,W°BUF CHEC : check the data 
0060 119 $DASSGN_ CHAN=WPRBCHANS : deassign the channel 
OD 3 1198 $Q10_S “CHAN=W°MB 
1 pMCE name 
0D79 \$8) o8.u" eit ; write to the mailbox_G 
0400 BF 00 2180°CF 00 2c O09 1202 mMovcS # wmBy mis #0,#1024,W*MBX_BUF ; zero the MBX buffer ~ 
DAB 1203 $Q10_S CHAN=U ORB HANG, - 
DAB 1204 FUNC=# 108 READVBLK ,~ 
DAB 1205 =W“MBR_BUF 
DAS 1 $ 2 =meur S126 3; read from the mailbox 
180 CF DE OQODC 1 MOVAL wW* BUF ,R 3: set the MBX buffer 
36 ‘tr DE DDO 1208 MOVAL W*TEST_DATA,R7 : find the master data 
58 00000400 8F DO ODDS 1209 MOVL @ 12_G,R 
20FC°CF 2O0FE'CF BO ODDC 1210 MOVW ©W*MBCHANG ,W*MBCHAN ; get the channel number 
FE92 CF 3=0Ots«éFB bes 1211 CALLS #0,W*BUF CH : check the dat 
DEB 1 1 SDASSGN_S CHAN=W"MBCHANG : deassign che sheenek 
04 ODF4 121 RET 
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-SBTTL STORE_STEP 


p++ 
; FUNCTIONAL DESCRIPTION: 
: Routine to store step information in the error log buffer. 


CALLING SEQUENCE: 
CALLS #0,W*STORE_STEP 


; INPUT PARAMETERS: 
: ELBP = current errlog buffer pointer 
S 


OUTPUT PARAMETERS: 
: FLAG = error logged flag 


TORE_STEP: 
. WORD 


So 

So 

@oo 

= 
SOOooooQoooooooooooooooooooo 


MmMmMmMmMmMoOVCVVVVVIVT TTT TT CT0TC0C0"—C0—O 


DODD DD NETTUNO << 


— — — —) — 2) — — — 9 3) —) — >» — — — 3 9 —» 9 9 +s _ 


WWII WWI WINIIIanononononononononong SS 


DONA UES WN OOONOULE WH" OOONOu 


“M<R2> 
lt 01 8 BISB2 #1,W*FLA 3; set the error logged flag 
5 tt DO W*ELBP, i; get errlog buf pntr 
: 697°CF 00 MOVL W*SERV_NAME , (R2)+ ; save the service name 
2063'CF D0 MOVL W°CURRENT TC, (R2)+ ; save the step number 
8 e278" te DO MOVL W*MODE , (R2)+ i save the mode 
OE63'CF 2 00 MOVL R2,W*ELBP ; reset the errlog buf pntr 


return 


sls" 


264F "CF 


14 AD 


ms 
m 
=~ 
nas 
Pad 
=< 
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P=19B4 06:29:56 LURTPSY. SRCISATSSS07.MAR: 1 
«SBTTL REG_SAVE 


FUNCTIONAL DESCRIPTION: 
Subroutine to save R2-R11 in the register save location. 


CALLING mens 
PUSHL # 
CALLS #1,W*REG_SAVE 
INPUT PARAMETERS: 
NONE 


; save a cusey parameter 
3; save R2=R1 


OUTPUT PARAMETERS: 
NONE 


- = tc? ,R3,R 
MOVC 4*10,°K14 
RET 


PFOOONAMN EA OOD NOU LS wr 


PDEA ITI BS 


Page 


3 
( 


5) 


11> 
; save the registers in the program 
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«SBTTL REG CHECK 


p++ 
; FUNCTIONAL DESCRIPTION: 
Subroutine to test RO ' R2-R11 for ee er content after a service 
execution. A snapshot is taken by t : EG_SAVE routine at the 
beginning of each step and this routine i§ executed after the 
services have been executed. 


CALLING SEQUENCE: 
PUSHL #SS$_XXXx 
CALLS #1,W*REG 


: XXX 3 push expected RO contents 
: INPUT PARAMETERS: 
R 


x 
CHECK ; execute this routine 


expected RO contents on the stack 


OUTPUT PARAMETERS: 
; possible error messages printed using SPUTMSG 


PD GAINES & AAA NIAID IPIPIPIPUPIPIPIPIPINIPIPIPIPIPIPIPIPIPOPIPIPINPINYNIN — COW 


SOOOOCOCOCOCSOOOSOOCSOSOOOOOO OOOO O OOOO OCOOOOOOOOCOOOOOO xrM 
MM MMMM MMMM MM MMMM Mem emmicenmiecmyecnieeniecnyeniwenievyeviecvicvwevyevy eve cvyevecveeveeviev eye rey 
OOH Lh BW NMI AAS PW WOMOOCOCOOCOCOCOOOOOCOOOOOOOOOO xX~< 
Oa BS dd dd dd 
DOOCOSSOCOS OOOO OO OW 09009 09 0909 SINISE SNIP AAO 


FAN S ODNAMN EWN O OD NOA ME WIN OO ODNOU EW OOONOUIE Ww 


EG_CHECK: 
OF FC «WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
50 O04 AC ODI CMPL 4(AP) ,RO ; is this the right fail code? 
oF 13 EQL ; br if yes 
DD PUSHL RO 3 push received data 
"- AC OD PUSHL  4(AP) 3 push expected data 
O158°CF OF PUSHAL W*EXP 3; push the string variable 
1501°CF O03 FB 108 CALLS #3,W*PRINT_FAIL ; print the error message 
264F'°CF 14 AD $8 * sore #4210,°X14(FP) ,W*REG_SAVE_AREA  ; ghess all but RO 
Py r © . 
56 53 0000 a i c3 BIVL3 #REG_SAVE_AREA,R3,R6 ; calculate the register number 
7E 56 8 §1 ADDB #*X2,R6,-(SP) 3 set number past RO-R1 and save 
51 QO CA BICL #3,R4 ; backup to register boundrys 
53 O03 CA BICL #3,R3 
61 OD PUSHL (R14) ; push received data 
63 OD USHL ) 3 push expected data 
3D°CF OF ; PUSHAL W*REG ; set string pntr param. 
1501°CF 04 FB 308 208 CALLS #4,W*PRINT_FAIL 3; print the error message 
04 3 RET 


<w 
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-SEP=-1984 04:29: UE Te ey. SAE ISAT SSO? MARS 1 - 33 


= .SBTTL REG_CHECKNP 
; FUNCTIONAL DESCRIPTION: 


Subroutine to test RO & R2-R11 for proper content after a service 
execution without pc ran rae it. A onpee yo s taken by the REG_SAVE routine a 
ne 


SY 
CK 
1 
Fes 1309 ; 
Fes 1308 
E60 1310: 
£° 1311 ; beginning of each step and this rout Ss executed after the 
E 1312 ; pet vices have been executed. This routine collects the error 
5e ! F ; nformation in buffer ERLB instead of printing it. 
3 1315 ; CALLING SEQUENCE: 
E62 1 18 : PUSHL #SS$_XXXXXX 3; push expected RO contents 
Ee ! ! : CALLS #1,W*REG_CHECK ; execute this routine , 
E62 1 15 : INPUT PARAMETERS: 
£8 : y 3 expected RO contents on the stack 
E6e 1 ; : OUTPUT PARAMETERS: 
E62 1 : possible error messages logged in buffer ERLB which are printed 
&e i ¢ 3 using routine ERLBUF_DUMP. 
oes : 8 : Error packets are in the following form: 
E62 1 : | eesesce ee ' 
OE62 1 § ; 'Service name pntr! r, 
OE6 1 0; lence eS ee ee ee ' 2 
BES } 1 3 } Step # § 
O&62 1 ‘ : iMode name pointer! 2 
OE6 1334 ; a ' 2 
BES ! 5; ! long word count § 
Oe 1 $ : IN/\/\/\/\/\/\/\/NE 3*4 parameter long words 2 
aE 
ate 
00 OE&62 1 ri} -BYTE 0 ; error flags are BITO = 0 means no errors in the bu 
$? } re a2 3 BITO = 1 means errors in the buffe 
L 
00000E67' ‘i } rf cap ADDRESS ERLB ; error log buffer pointer 
00001443 For } 4? -BLKB 1500 ; error log buffer 
1443 1349 REG_CHECKNP: 
OFFC ts 1 i eG. -WORD * SBF Bz 4 RS O.87 BP R9,R10,R11> 
50 04 AC Di 1445 1 3 4(AP)<R : is this the right fail code 
33 13 1449 1 § BEQL ; br if yes 
F9AS CF FB 1448 1 2 CALLS #0,W*STORE_STEP ; store step information 
52 FAOF CF 00 1450 1354 MOVL ELBP,R2 ; get the current error log pointer 
8 05 90 1455 1355 MOVB WS. cha) 3; Save the long word count 
DO 1458 1 § MOVL RO, (R2)+ 3 save received status 
82 0 AC OD 4 1 OVL 4 (AP) « (R2D + 3 save expected etatus 
82 0158°CF 43 145F 1 } MOVAL we )+ ; save the string variable 
9g D4 1464 1 CLRL (R2) ; set the terminator 
FOFB CF DO 1466 1360 MOVL R2,ELBP 3; reset the buffer ppinter 
269F ‘CF Grea ¢f 43 14 1361 MOVAL wr fest mop FAIL,W*TMD_ADDR ; set failure message address 
2594°CF 603 62 FO 1472 1362 INSV #ERRORT#O,¥93,W*MOD_MSG_CODE’; set severity code 


13 
-SEP- 747: 4- Page 3 
= SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-1984 0:47: AX/VMS Macro VO : , 
Sou s880. REG_CHECKNP ety Pi 9:34:98 De Tee RET SAYSESOF MAR: 1 as 
1479 1 10$: : - 
264F°CF 14 AD ‘ 3 1495 ! é CMPC3 «#410, vinhhady aw gene 5 88 all but RO and 
a : tep information 
Se tf 8 f 12 ; : 39 move a t tt eal : cet current error log buf pointer 
a‘ y 4 3 148C 136 MOVB $*#4,(R2)+ ; set longword count 
Q0000264F'8F C3 148F 1 § SUBL3 #REG_SAVE_AREA,- 
3 14 1 3 RS R ; cale reg number 
3 4 C6 1299 1371 DIVL S*#4,R6 ; make it a longword count 
2 Ci 149A 137 ADDL $*#2,R6,(R2)+ ; correct for RO-R1 and save 
= 61 00 149E 1 4 MOVL (RI), (RE) 3; save received results 
63 Mi 1eai 137 MOVL (R3),(R2)+ 3 save expected results 

3D'CF DE 1444 1 fe MOVAL W*REG,(R2)+ 3 save string variable 

- 7 D4 1449 137 CLRL (R2) 3; set the terminator 
85 0 14AB 1 § MOVL R2,ELBP 3; reset the buffer pointer 
OS sa §5 4 5 14 137 MOVAL W*TEST_MOD FAIL,W*TMD_ADDR ; set failure message address 
asoureee 63 pa 62 5 148 1 rg INSV #ERROR, #0 ,43,W°MOD_MSG_CODE 3; set severity code 
4 1380 208: 
04 BE 1 HF RET ; bail out 
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v04= NONSUB_ SSE eet fi $0: 39;98 LOE TP SY RET SAYSeSO MAR: 1 * 
4B 3 ie .SBTTL NONSUB_SSE 
148 5 : FUNCTIONAL DESCRIPTION: 
be } § : subject system service. 
14BF 1 : CALLING SEQUENCE: 
14BF 1390; PU ; Save the failure status 
e+ ! 4 ; CALLS #1,NONSUB_SSE ; Print the failure message 
14BF 1 3g : INPUT PARAMETERS: 
re +4 ! 32 : 4(AP) = Status code of failing system service 
146BF 1 96 t OUTPUT PARAMETERS: 
14BF 1397 : NONE 
1 138 
14BF 1400 NONSUB_SSE: 
OFFC 14BF 1401 “"\WORD  “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
146C1 140@ $GETMSG_S MSGID ‘= 4(AP),- 
14C1 1402 MSGLEN = BUFFER_PTR,- 
14€1 1404 BUFADR = BUFFER-PTR,- 
14C1 1405 FLAGS = #1 ; Get just the text of the message 
1407 1496 SFAO_S CTRSTR = NSSSF,- 
1407 140 OUTLEN = MESSAGEIL,- 
14071408 OUTBUF = M - 
1407 1409 P = #BUFFER_PTR : Format the failure message 
27BB'CF 0100 8F B80 1er3 1410 MOVW #TEXT_BUFFER,BUFFER_PTR ; Reset the descriptor length 
27B3'CF DF 14F7 1411 PUSHAL mlESSAGEIL ; Push the string address 
1501°CF 01 FB 1468 141g CALLS #1,PRINT_FAIL : Print the failure 


Subroutine to report the failure of a system service which is not the 
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SOu S805 PRINT_FAIL ae 4:29: ‘06 YOEt PSY a oe ys 89. MAR; 1 . ay 
: ! 1313 3 ~SBTTL PRINT_FAIL 
1501 1243 : FUNCTIONAL DESCRIPTION: 
1 } 12] : Subroutine to report failures using SPUTMSG 
1501 1420 : CALLING SEQUENCE : 
1501 1421 ; Mode #1 PUSHL L expecree Mode #2 PUSHL REG_NUMBER 
1501 14 § j PUSHL ECEIVED PUSHL EXPECTED 
1501 14 : Ly! RING_V PUSHL RECEIVED 
1501 14246 ; Chics a WPRINT FAIL PUSHAL STRING_VAR 
1501 1425 ; CALLS #4,W*PRINT_FAIL 
1501 14 § ; Mode #3 PUSHAL STRING_VAR 
1 ! 1 3 CALLS #1,W*°PRINT_FAIL 
1501 14 § : INPUT PARAMETERS: 
1 ! 12 » 3 Listed above 
1501 14 ; : OUTPUT PARAMETERS: 
i : 1? Z 3 an error message is printed using SPUTMSG 
18) eae 
1501 14 $ PRINT_FAIL: 
003C 1501 14 8 eWORD “M<R2,R3,R4,R 
1503 14 $FAO_S ro ‘UPHESEAGEL oW*MSGL ,ATEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
13 4 1440 SPUTASG_S W*MSGVE :"print the messa ge 
04 gf 4 1 3 170) or 4 M4 3 i. gh a register message? 
01 of 4 12gn 1448 aya (AP) ,#1 ; rs this just a a message? 
133¢ 1445 $FAO_S W*CS2,W*MESSAGEL ,W°MSGL,4(AP), BAP), FS be 12(AP) 
40 11 1325 1208 108 BRB 30$ 3 goto output message 
1560 1448 ; ore. S W*CS3,W*MESSAGEL,W*MSGL,4(AP), 16(AP), 8(AP) ,4(AP),16(AP) ,12¢AP) 
19 «+17 1333 1388 208 BRB 30$ 3 goto output message 
2580'CF 04 AC DO 1587 1451 "MOVE. CAP) W°MSGVEC #12 ; save string address 
158D 1458 SPUTMSG_S W*MSGVEC : print the message 
17. «11 1340 1337 30s BRB “408 ; skip the other message 
13h 1332 wes SPUTMSG_S W“MSGVEC ; print the message 
15C5°CF 00 FB 1581 1489 ; CALLS #0,W*MODE 3 poe the mode 
269F *CF at 43 1586 1938 MOVAL w*TEST “AOD PAIL, W*TMD_ADDR ; set failure mesqage address 
2594°CF 03 0 02 ry 138? 122p jasv #ERROR 7 #0,93,W°MOD _MSG_CODE ; set severity code 


SSB 
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MDOOOOOOOOOAOAAAOAOOOOOAO 
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UETPSY.SRCJSATS (8) 
.SBTTL MODE_ID 


; FUNCTIONAL DESCRIPTION: 
; Subroutine to identify the mode that an exit handler is in. 


i CALLING, SEQUENCE: 
ALLS # »W*MODE_ ID 


INPUT PARAMETERS: 
; MODE contains an address pointing to an ascii string desc. 
3 of the current CPU mode. 


; OUTPUT PARAMETERS: 
; NONE 


MODE_ID: 


a kk kk tk tt 
Bt at et ae a te ee ee eee 
COCD 0908 NI NINN NNO OAAAOAOAOO 
WR 9 OONOA NE WIN - OOONOUE wry 


~ WORD “M<R B 3,R4,R5> 
$FAO_S wCS RESSAGEL. W*MSGL.MODE ; format the error message 
SPUTASG.S Gcageve : eriat the mode message 


vi 
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- MOD _MSG_PRINT: 


LARRRRAARRAAALALALARALALASEL EASES ESSE LSE ERE REESE SESE ERE REELS OY 


* ® 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
* (USING THE PUTMSG MACRO). e 

e 


LARRRRRARRSAARASRAASALALEAA ALE LALA S ESAS SAS ERE ASAE EERE REESE REE ERS SS 


PUTMSG <MOD_MSG_CODE.#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
RSB :’...7AND RETURN TO CALLER 


Sete Ge Se Sete tee 


05 


RIN: 
TE Te CT EEE RTT a oe 


M 
fe 

® 

» CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER  * 
* A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE IS ISSUED : 
‘ BY THE MODE MACRO ('TO' OPTION). IT MERELY « 
* A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS : 
x THE EFFECT OF RETURNING TO THE END OF THE MODE « 
. MACRO EXPANSION. « 
® a 
® ® 


PARRA RARAARARAAAAAARRALEEELESESSE ELAR ESSE SEARS REE R EERE RR RRA AE SG 


-WORD 0 ; ENTRY MASK 
JMP @CHM_CONT ; RETURN TO MODE MACRO IN NEW MODE 


* RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ....° MACRO 
- END SATSSSO7 


0000 
1FB3'DF 8617 
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SATSSS07 - SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-1984 
Psect synopsis 873Eb=| dae 62:39 88 

te creana awa mre ne aee + 

! | Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
. ABS . 4444 ( -) QO ¢ ie NOPIC USR CON ABS LCL N 
SABS$ 8 00 ¢ -» Q1 ¢ -) NOPIC USR CON ABS LCL N 
RODATA 0 A ( 1954.) § ( ¢°} NOPIC USR CON REL LCL NO 

DATA 00027 ig ha: ( -) NOPIC USR CON REL LCL NO 
SATSSS07 000160C ( 5644.) 04 ¢ 4.) NOPIC USR CON REL LCL N 
os 
! Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 98:00:00. 19 00:00:00.35 
Command processing 108 0:00: 9-§8 00:00: $°63 
Pass 609 H's ‘ 00:00:36.31 
Symbol table sort 0 Q: 8: ¢+08 00:00: 5-09 
Pass 309 88 : 8-9 Bb: 80: ont 
Symbol table output 26 0: 8:8 19 0:00:00.19 
Psect synopsis output 0:00:00.02 0:00:00.03 
Cross-reference output 880: 92- 98 B08 Pe 
Assembler run totals 1087 0:00:35.32 0:00:50.46 


The working sets Limit was 1950 pages. 
168419 bytes (329 pages) of virtual memory were used to buffer 
There were 80 pages of symbol table space ie td to hold 149 
1515 source Lines were read in Pass 1, producin 
61 pages of virtual memory were used to define 


he intermediate cod 

non-local and 38 Local symbols. 
hid object records in Pass 2. 

7 macros. 


Macro Library name 


$255$DUA28:(SYSLIB STARLET - MLB; 2 43 
~$223$DUA RHE SHRLIBIU “LB: 1 11 
~3522 $0 SDUA $15.96] 18:AL8 eile: :2 § 
mote (all Libraries) 54 


1756 GETS were required to define 54 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=L1IS$:SATSSSO7/0BJ=0BJ$:SATSSSO7 MSRC$:SATSSSO7/UPDATE=(ENHS: SATSSSO7) +EXECML$/LIB+SHRLIBS:UETP/LIB 


Wee S89. MAR: 1 


NOWRT NOVEC BYTE 


WRT NOVEC LONG 


PMENT CORPORATION 


BT13A-SE 
AND PROPRIETARY 
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